home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Games Machine 75
/
XENIATGM75.iso
/
Shareware
/
X-Setup 5.0
/
_SETUP.1
/
XQ Software Uninstall.xpl
< prev
next >
Wrap
Text File
|
1999-07-08
|
3KB
|
95 lines
"FILE"="Xteq Systems X-Setup Plugin 5.0"
"TYPE"="8"
"COUNT"="3"
"TEXT 1"="Edit Name..."
"TEXT 2"="Edit CMD..."
"TEXT 3"="Delete"
"UIPATH"="System\Software Installation\Uninstall"
"NAME"="Uninstall Software List Editor"
"VERSION"="1.4"
"LANGUAGE"="VBScript"
"DESCRIPTION 1"="For every program that has been installed, an item is created here.
"DESCRIPTION 2"="ALWAYS try to use "Start - Settings - Control Panel - Software" to remove an item before using this plug-in."
"DESCRIPTION 3"="This plug-in will NOT uninstall the software, it just removes the selected item from the registry!"
"AUTHOR"="Xteq Systems"
"COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
"COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
sP="HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\"
sV1="\DisplayName"
sV2="\UninstallString"
Sub Plugin_Initialize
iCount=RegEnumPaths(sP)
if iCount>0 then
for l=1 to iCount
s=sP & RegEnumElement(l) & sV1
s=RegReadValue(s)
Call SetUIElement(l,s)
next
else
Disable
end if
End Sub
Sub Plugin_CheckData(ElementIndex)
End Sub
Sub Plugin_Apply(ElementIndex,ElementSubIndex)
if ElementSubIndex>0 then 'OK, user has selected an item
If ElementIndex=1 then 'Rename name
s=sp & RegEnumElement(ElementSubIndex) & sV1
sV=RegReadValue(s)
sV=InputWindow("Change Name in List",sV,1)
if IsEmpty(sV)=false then
'change it!
Call RegWriteValue(s,sV,1)
Call SetUIElement(ElementSubIndex,sV)
end if
else
if ElementIndex=3 then 'Delete!!
'Create name of first value
s=sp & RegEnumElement(ElementSubIndex) & sV1
Call RegDeleteValue(s)
'Create name of Second value
s=sp & RegEnumElement(ElementSubIndex) & sV2
Call RegDeleteValue(s)
'Now delete the path
s=sp & RegEnumElement(ElementSubIndex)
Call RegDeletePath(s)
'Set item to empty so it is removed from the list...
Call SetUIElement(ElementSubIndex,"")
else 'Edit command
s=sp & RegEnumElement(ElementSubIndex) & sV2
sV=RegReadValue(s)
sV=InputWindow("Change Uninstall Command",sV,1)
if IsEmpty(sV)=false then
'change it!
Call RegWriteValue(s,sV,1)
end if
end if
end if
else
Call MsgWarning("No item selected - please select an item first.")
end if
End Sub
Sub Plugin_Terminate
End Sub